Libris Britannia 4/science library(b).zip/science library(b)/HAMRADIO/LOGBOOK.ZIP/LOGADD.PRG

Text File | 1987-07-07 | 5KB | 194 lines

*LOGADD VERSION 870707 CALLED FROM LOGBOOK
* (c) COPYRIGHT JOE KASSER G3ZCZ 1986
* IF YOU CHANGE THE STRUCTURE OF THE DATABASE TO INCREASE THE
*WIDTH OF THE COMMENTS, MODIFY THE PROGRAM AS SHOWN BELOW

ACCEPT 'Are you running this in real TIME (Y/N) ? ' to rtf
IF rtf = 'Y'
   STORE '9999' TO otime
   STORE ' ' TO dummy
   * INITIALISE TIME/DATE SUBROUTINE FROM PC-SIG ,
   * CHANGE FOR DBASE3
   POKE 61440,180,44,205,33,137,22,13,240,137,14,15,240,195
   SET CALL TO 61440
ENDIF

USE &logbook
STORE T TO callflag
GOTO BOTTOM
STORE call TO lastcall
STORE # TO lastentry

*initialise new variables
STORE date TO ndate
STORE TIME TO ntime
STORE band TO nband
STORE power TO npower
STORE mode TO nmode
STORE rx TO nrx
STORE tx TO ntx

SET INDEX TO &logbook
ERASE
*MAIN LOOP
DO WHILE callflag

   STORE "-" TO nqslsent
   STORE "-" TO nqslrx
   STORE "          " TO ncall
* CHANGE THE LENGTH OF THE SPACES BETWEEN THE " " ON THE NEXT LINE
* IF YOU CHANGE THE WIDTH OF THE COMMENTS
   STORE "          " TO ncomments
   STORE " " TO logflag
   STORE T TO dataflag

   DO WHILE dataflag

      IF rtf = 'Y'
         DO REALTIME
      ENDIF
      @ 19,1  SAY lastentry
      @ 19,12 SAY "LAST CONTACT WAS WITH "
      @ 19,35 SAY lastcall

      @ 21,3  SAY "DATE"
      @ 21,11 SAY "TIME"
      @ 21,19 SAY "CALL"
      @ 21,26 SAY "BAND"
      @ 21,31 SAY "PWR"
      @ 21,36 SAY "MODE"
      @ 21,41 SAY "RX"
      @ 21,45 SAY "TX"
      @ 21,49 SAY "S"
      @ 21,51 SAY "R"
      @ 21,55 SAY "COMMENTS"
      @ 23,1  SAY "QRU (*TPHL)"

      IF logflag <> 'T'
         @ 22,1  GET ndate
         @ 22,10 GET ntime
         @ 22,15 GET ncall
         @ 22,26 GET nband
         @ 22,30 GET npower
         @ 22,35 GET nmode
         @ 22,40 GET nrx
         @ 22,44 GET ntx
         @ 22,48 GET nqslsent
         @ 22,50 GET nqslrx
         @ 22,52 GET ncomments
      ENDIF

         @ 23,13 GET logflag
         READ

      DO CASE
         CASE logflag = 'H'
            GOTO TOP
            STORE 1 TO linecount
            STORE TRIM(ncall) TO fcall
            FIND &fcall
            IF # = 0
               ERASE
               @ 5,1 SAY ncall
               @ 5,12 SAY "Does not appear to be in the log"
               WAIT
               ERASE
            ELSE
               DO WHILE  CALL = fcall .AND. (.NOT. EOF)
                  IF linecount = 1
                     ERASE
                     @ 1,10 SAY "PREVIOUS LOG ENTRIES ARE "
                  ENDIF
                  ? #,date,TIME,call,band,tx,rx,mode,power
                  ?? qslsent,qslrx,comments
                  STORE linecount + 1 TO linecount
                  IF linecount = 20
                     ?
                     WAIT
                     STORE 1 TO linecount
                  ENDIF
                  SKIP
               ENDDO
               ?
               WAIT
               IF linecount > 16
                  ERASE
               ENDIF
            ENDIF

         CASE  logflag = 'L' .OR. logflag = 'P'
            IF logflag = 'L'
               *LOG ENTRY
               APPEND BLANK
               STORE F TO dataflag
               REPLACE qslsent WITH nqslsent
               REPLACE qslrx WITH nqslrx
               REPLACE date WITH ndate
               REPLACE TIME WITH ntime
               REPLACE call WITH ncall
               REPLACE band WITH nband
               REPLACE power WITH npower
               REPLACE mode WITH nmode
               REPLACE rx WITH nrx
               REPLACE tx WITH ntx
               REPLACE comments WITH ncomments
               STORE call TO lastcall
               STORE # TO lastentry
               STORE "          " TO ncall
               STORE "          " TO ncomments
            ENDIF
            IF   logflag = 'P' .OR. logflag = 'L'
               USE &logbook
               GOTO BOTTOM
               SKIP -12
               ERASE
               @ 1,1  SAY '12 ENTRIES BEFORE'
               @ 1,20 SAY lastcall
               @ 1,30 SAY 'IN LOG, ARE'
               ?
               DO WHILE .NOT. EOF
                  ? #,date,time,call,band,tx,rx,mode
                  ?? power,qslsent,qslrx,comments
                  SKIP
               ENDDO
               SET INDEX TO &logbook
            ENDIF

         CASE logflag = "*"
            STORE F TO callflag
            STORE F TO dataflag

         CASE logflag = 'T'
           IF rtf = 'Y'
              DO REALTIME
           ENDIF
           @ 22,2 SAY ndate
           @ 22,12 SAY ntime
      ENDCASE
   ENDDO
ENDDO
USE
* GET READY TO EXIT
RELEASE lastcall,lastentry,ndate,ntime,ncall,nband,npower,nmode
RELEASE nqslsent,nqslrx,nrx,ntx,ncomments,fcall,linecount,fdate
RELEASE otime,rtf,mtime,cpointer,dummy,hour,min,mm,dd,yy,ndate
RELEASE callflag,dataflag,logflag
RETURN










GET ncomments
      ENDIF

         @ 23,13 GET logflag
         READ

      DO CASE
         CASE logflag = 'H